Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №14

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №14 Лабораторна робота №14. Тема: Робота з файлами. Мета: Вивчення процедур та функцій для організації роботи з даними файлового типу. Вивчити питання: Поняття файлу і файлової змінної. Текстові файли. Типізовані файли. Нетипізовані файли. Завдання до роботи: Скласти програми на мові Pascal для розв'язування задач за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 1. Файл f заповнити 300 випадковими цілими числами. Записати у файл g усі компоненти файлу f, які є діляться на 3 і не діляться на 7. 2. Кожен рядок текстового файлу f містить назву фірми, назву товару та ціну в євро. Перерахувати ціни у гривні за поточним курсом та дописати до рядків отримані значення. Результати записати у новий текстовий файл. ХІД РОБОТИ 1.Файл f заповнити 300 випадковими цілими числами. Записати у файл g усі компоненти файлу f, які є діляться на 3 і не діляться на 7. var f,g:file of integer; i,j:integer; begin randomize; i:=300; assign(f,'int.dat'); rewrite(f); for i:=1 to i do begin j:=random(1000);write(f,j);end; close(f); reset(f); assign(g,'out_int.dat'); rewrite(g); writeln('File1:'); while not eof(f) do begin read(f,i); write(i,' '); if (i mod 3=0) and (i mod 7<>0) then write(g,i); end; writeln; close(f); close(g); reset(g); writeln('File2:'); while not eof(g) do begin read(g,i); write(i,' '); end; close(g); end. / 2. Кожен рядок текстового файлу f містить назву фірми, назву товару та ціну в євро. Перерахувати ціни у гривні за поточним курсом та дописати до рядків отримані значення. Результати записати у новий текстовий файл. var f,g:text; s:string; c,k:real; i:integer; begin assign(f,'1.txt'); reset(f); assign(g,'2.txt'); rewrite(g); writeln('kyrs='); readln(k); while not eof(f) do begin readln(f,s); write(g,s); while pos(' ',s)>0 do delete(s,1,pos(' ',s)); val(s,c,i); c:=c*k; writeln(g,' ',c:0:2); end; close(f); close(g); write('Prite write in 2.txt'); readln; end. / / ВИСНОВОК За допомогою даної лабораторної роботи я вивчила процедури та функцій для організації роботи з даними файлового типу.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини